-- background: 2741 from stack: in
-- bmap block id: 3239
-- flags: 0000
-- background id: 0
-- name: Only
----- HyperTalk script -----
on closeCard
  global scrollFactor
  get the scroll of bg fld "Index"
  put it into scrollFactor
  show bg btn "About"
end closeCard

on openCard
  global scrollFactor
  if the short name of this card is "About"
  then
  hide bg btn "About"
  set the scroll of card field "About" to 0
else
  set the scroll of bg fld "Index" to scrollFactor
end if
end openCard


-- part 1 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=155 top=22 right=44 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 33
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Index Name


-- part 2 (field)
-- low flags: 00
-- high flags: 2007
-- rect: left=155 top=45 right=202 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Article


-- part 3 (field)
-- low flags: 00
-- high flags: 2007
-- rect: left=155 top=203 right=257 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: References


-- part 4 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=3 top=22 right=257 bottom=154
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Index
----- HyperTalk script -----
on mouseUp
  set cursor to watch
  lock screen
  markText the clickLoc
  set the scroll of bg field id 2 to 0
  set the scroll of bg field id 3 to 0
  --unlock screen with visual effect zoom in
end mouseUp

on markText t1
  if target is empty then exit to HyperCard
  --•••Figure out what line is selected and find the first subject
  put trunc((item 2 of t1 - top of target + scroll of target) div textHeight of target) + 1 into theLine
  select line theLine of bg field id 4
  get the selectedText
  put it into thisArticle
  find thisArticle in bg field id 1
  click at 1,1
end markText



-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=392 top=25 right=42 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 10496
-- line height: 13
-- part name: Date


-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=0 top=318 right=338 bottom=17
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  lock screen
  go home
  unlock screen with visual effect checkerboard
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=205 top=257 right=281 bottom=230
-- title width / last selected line: 0
-- icon id / first selected line: 3835 / 3835
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Previous
----- HyperTalk script -----
on mouseUp
  lock screen
  go to prev card
  if the short name of this card is "About" then go to prev card
  set the scroll of bg field id 2 to 0
  set the scroll of bg field id 3 to 0
  unlock screen with visual wipe left
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=3 top=267 right=289 bottom=77
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Card
----- HyperTalk script -----
on mouseUp
  lock screen
  go to last card
  put bg fld "Date" into oldDate
  doMenu "New Card"
  put oldDate into bg fld "Date"
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=231 top=257 right=282 bottom=258
-- title width / last selected line: 0
-- icon id / first selected line: 29484 / 29484
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  lock screen
  go to next card
  if the short name of this card is "About" then go to next card
  set the scroll of bg field id 2 to 0
  set the scroll of bg field id 3 to 0
  unlock screen with visual wipe right
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=393 top=267 right=289 bottom=453
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find F
----- HyperTalk script -----
on mouseUp
  doMenu "Find..."
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=455 top=267 right=289 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Index
----- HyperTalk script -----
on mouseUp
  set cursor to watch
  reIndex
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=79 top=267 right=289 bottom=166
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Card
----- HyperTalk script -----
on mouseUp
  answer "Definitely delete this card?" with "Cancel" or "OK"
  if it is "Cancel" then exit mouseUp
  doMenu "Delete Card"
  if the short name of this card is "About"
  then
  hide bg btn "About"
  go to next card
end if
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=0 top=293 right=315 bottom=21
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About
----- HyperTalk script -----
on mouseUp
  lock screen
  go to card "About"
  unlock screen with visual effect iris open
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=338 top=267 right=289 bottom=391
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Merge
----- HyperTalk script -----
on mouseUp
  if the short name of this stack is "TidBITS Archive"
  then
  answer "Can’t merge from TidBITS Archive." with "OK"
  exit mouseUp
end if
mergeStacks
end mouseUp


-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=12 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Menubar
----- HyperTalk script -----
on mouseEnter
  put item 3 of the screenRect into screenWidth
  if screenWidth <= 512 then show menubar
end mouseEnter

on mouseLeave
  put item 3 of the screenRect into screenWidth
  if screenWidth <= 512 then hide menubar
end mouseLeave